From: Jay Belanger Date: Sun, 24 Jun 2007 19:37:43 +0000 (+0000) Subject: (math-div2-bignum): Use math-bignum-digit-size. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~18198 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=57c59423c83ce0c8a3b7302008d1114854b2ae91;p=emacs.git (math-div2-bignum): Use math-bignum-digit-size. --- diff --git a/lisp/calc/calc-misc.el b/lisp/calc/calc-misc.el index e9674ff938b..ecc304a5f5f 100644 --- a/lisp/calc/calc-misc.el +++ b/lisp/calc/calc-misc.el @@ -579,7 +579,7 @@ loaded and the keystroke automatically re-typed." (defun math-div2-bignum (a) ; [l l] (if (cdr a) - (cons (+ (/ (car a) 2) (* (% (nth 1 a) 2) 500)) + (cons (+ (/ (car a) 2) (* (% (nth 1 a) 2) (/ math-bignum-digit-size 2))) (math-div2-bignum (cdr a))) (list (/ (car a) 2))))